home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / data / dora / doraset.plp < prev    next >
Text File  |  1995-08-14  |  56KB  |  1,723 lines
  1. %setNETbps{
  2.     var netbps[80]; var netbps2[80]; var netbps3[80]; var netbps4[80]; 
  3.     netbps:=@tail(ROAD,{/});
  4.     netbps2:=@tail(ROAD2,{/});
  5.     netbps3:=@tail(ROAD3,{/});
  6.     netbps4:=@tail(ROAD4,{/});
  7.     case(netbps={},{Yes},{netbps:={未設定}},{No},{});
  8.     case(netbps2={},{Yes},{netbps2:={未設定}},{No},{});
  9.     case(netbps3={},{Yes},{netbps3:={未設定}},{No},{});
  10.     case(netbps4={},{Yes},{netbps4:={未設定}},{No},{});    
  11.     %a @plane(
  12.         {c }|NET|{の電話番号毎の通信速度を入力してください。\n}|
  13.         {t ch.1の電話番号=}|road|{   /xxxxxx\n}|
  14.         {t ch.2の電話番号=}|road2|{   /xxxxxx\n}|
  15.         {t ch.3の電話番号=}|road3|{   /xxxxxx\n}|
  16.         {t ch.4の電話番号=}|road4|{   /xxxxxx\n}|
  17.         {s                        / 設定 / 取消 },
  18.             netbps,netbps2,netbps3,netbps4);
  19. %netbps     @head(@getline(a,1,1),{\n});%netbps2    @head(@getline(a,2,1),{\n});
  20. %netbps3 @head(@getline(a,3,1),{\n});%netbps4    @head(@getline(a,4,1),{\n});
  21. %ok     @head(@getline(a,5,1),{\n});
  22.         case(ok,{ 1},{            
  23.         ROAD:=    @im(@nth(ROAD,1,{/})|{/}|netbps);
  24.         ROAD2:=    @im(@nth(ROAD2,1,{/})|{/}|netbps2);
  25.         ROAD3:=    @im(@nth(ROAD3,1,{/})|{/}|netbps3);
  26.         ROAD4:=    @im(@nth(ROAD4,1,{/})|{/}|netbps4);
  27.         },
  28.         { 2},{im({No})},
  29.         ,{im({No})});
  30.     };
  31. %setBBSname    {
  32.     loop    ({
  33.         SNDMSG({erande_f.snd});
  34.         footnote({ネットの名称を入力して下さい});
  35.         select    ({ネットの名称・電話番号・通信速度の設定},
  36.             Wtime4,{im({No})},
  37.             {ネットの名称を入力する},
  38.             {SNDMSG({nyuryo_f.snd});footnote({NETの名称を入力し}|
  39.             {て下さい});
  40.             %net @input({ログファイル名称に使用しますので、必ず}|
  41.             {半角の大文字\n}|{３文字にてNETの簡易名称を入力して}|
  42.             {下さい。\n}|{ 尚　簡易名称は「.」を含まないで表現し}|
  43.             {て下さい。\n},
  44.             ,NET);
  45.             footnote({ネット巡回機能で使用(する予定です)します});
  46.             NETname:=@input(NET|
  47.             {の正式なネット名称を入力して下さい},,NETname);
  48.         case    (@nochar(net),
  49.             3,{NET:=net;im({Yes})},
  50.             2,{NET:=net;im({Yes})}
  51.             );im({Yes});
  52.             },
  53.             { 次の処理に進む「ＤＯＲＡ電話帳」},{im({No})}
  54.             )});
  55.         };
  56. %setACP        {
  57.         select({＜＜ アクセスポイント ＞＞「現在の設定は}|AcP|{です},
  58.             Wtime4,{},
  59.             {区域内通話 },{AcP:={区域内通話};AcPNo:=1},
  60.             {隣接～20km },{AcP:={隣接～20km};AcPNo:=2},
  61.             {    ～30km },{AcP:={20km～30km};AcPNo:=3},
  62.             {    ～40km },{AcP:={30km～40km};AcPNo:=4},
  63.             {    ～60km },{AcP:={40km～60km};AcPNo:=5},
  64.             {    ～80km },{AcP:={60km～80km};AcPNo:=6},
  65.             {   ～100km },{AcP:={80km～100km};AcPNo:=7},
  66.             {   ～160km },{AcP:={100km～160km};AcPNo:=8},
  67.             { 160km以上 },{AcP:={160km以上};AcPNo:=9},
  68.             { 変更しない},{});
  69.         };
  70. /*    電話番号一覧選択    */
  71. %setROAD{
  72.     %HOKKAI1{
  73.         SNDMSG({erande_f.snd});
  74.         select({電話番号を選択下さい}|
  75.             {（現在は『}|RoaD|{』）},
  76.             ,,
  77.             { 札  幌 },{},
  78.             { 函  館 },{},
  79.             { 室  蘭 },{},
  80.             { 釧  路 },{},
  81.             { 帯  広 },{},
  82.             { 北  見 },{},
  83.             { 旭  川 },{},
  84.             { 中  止 },{nodeON:={}}
  85.             );
  86.         };
  87.     %TOHOKU1{
  88.         SNDMSG({erande_f.snd});
  89.         select({電話番号を選択下さい}|
  90.             {（現在は『}|RoaD|{』）},
  91.             ,,
  92.         /*    { 弘  前 },{},
  93.             { 青  森 },{},
  94.             { 八  戸 },{},
  95.             { 秋  田 },{},
  96.             { 盛  岡 },{},
  97.             { 北  上 },{},
  98.             { 仙  台 },{},
  99.             { 酒  田 },{},
  100.             { 山  形 },{},
  101.             {会津若松},{},
  102.             { 福  島 },{},    */
  103.         { いわき  THE BEAT-NET},
  104.         {ROAD:={0246-27-8368/9600};NETname:={THE BEAT-NET};NET:={TBN}},
  105.         /*    { 郡  山 },{},    */
  106.             { 中  止 },{nodeON:={}}
  107.             );
  108.         };
  109.     %NKANTO1{
  110.         SNDMSG({erande_f.snd});
  111.         select({電話番号を選択下さい}|
  112.             {（現在は『}|RoaD|{』）},
  113.             ,,
  114.             { 前  橋 },{},
  115.             { 高  崎 },{},
  116.             { 館  林 },{},
  117.             { 小  山 },{},
  118.             { 宇都宮 },{},
  119.             { 水  戸 },{},
  120.             { 日  立 },{},
  121.             { 筑  波 },{},
  122.             { 所  沢 },{},
  123.             { 浦  和 },{},
  124.             { 熊  谷 },{},
  125.             { 越  谷 },{},
  126.             { 川  越 },{},
  127.             { 本  庄 },{},
  128.             { 中  止 },{nodeON:={}}
  129.             );
  130.         };
  131.     %SKANTO1{
  132.         SNDMSG({erande_f.snd});
  133.         select({電話番号を選択下さい}|
  134.             {（現在は『}|RoaD|{』）},
  135.             ,,
  136.         /*    { 東  京 },{},*/
  137.         { 八王子 ミンキームーン　ネットワーク},
  138.         {ROAD:={0426-48-3881/38400};ROAD2:={0426-43-3292/19200};
  139.         NETname:={ミンキームーン　ネットワーク};NET:={MMN};
  140.         gen2:={Yes};opentime:={23};closetime:={08}},
  141.         /*    { 調  布 },{},
  142.             { 立  川 },{},
  143.             { 町  田 },{},
  144.             { 千  葉 },{},
  145.             { 君  津 },{},*/
  146.         { 川  崎 ＳＳＳ－ＮＥＴ},
  147.         {ROAD:={044-965-1567/9600};ROAD2:={044-965-1667/14400};
  148.         NETname:={ＳＳＳ－ＮＥＴ};NET:={SSS}},
  149.         /*{ 川  崎 きまぐれ☆ＮＥＴ},
  150.         {ROAD:={044-798-3665/14400};ROAD2:={044-798-1748/14400};
  151.         NETname:={きまぐれ☆ＮＥＴ};NET:={MDN}},*/
  152.         { 横  浜 Ｓｌｏｗ’Ｓ　ＮＥＴ},
  153.         {ROAD:={045-584-1470/28000};
  154.         NETname:={Ｓｌｏｗ’Ｓ　ＮＥＴ};NET:={SLO}},
  155.         /*    { 厚  木 },{},
  156.             { 平  塚 },{},
  157.             { 小田原 },{},
  158.             { 藤  沢 },{},    
  159.             { 横須賀 },{},
  160.             {   柏   },{},*/
  161.         { 松  戸 KT-Network},
  162.         {ROAD:={0473-44-5862/14400};NETname:={KT-Network};NET:={KTN}},
  163.         /*    { 船  橋 },{},*/
  164.         { 中  止 },{nodeON:={}}
  165.             );
  166.         };
  167.     %HOKURIK1{
  168.         SNDMSG({erande_f.snd});
  169.         select({電話番号を選択下さい}|
  170.             {（現在は『}|RoaD|{』）},
  171.             ,,
  172.         /*    { 新  潟 },{},
  173.             { 上  越 },{},
  174.             { 長  岡 },{},
  175.             { 長  野 },{},
  176.             { 松  本 },{},*/
  177.         { 諏  訪 信州サミットネット},
  178.         {ROAD:={0266-79-6364/2400};ROAD2:={0266-79-5926/9600};
  179.         ROAD3:={0266-79-4914/14000};
  180.         NETname:={サミットネット};NET:={SUM}},    
  181.         /*    { 佐  久 },{},
  182.             { 金  沢 },{},
  183.             { 富  山 },{},
  184.             { 福  井 },{},*/
  185.             { 中  止 },{nodeON:={}}
  186.             );
  187.         };
  188.     %TYUBU1{
  189.         SNDMSG({erande_f.snd});
  190.         select({電話番号を選択下さい}|
  191.             {（現在は『}|RoaD|{』）},
  192.             ,,
  193.         { 名古屋 ＪＭＪ－ＮＥＴ},
  194.         {ROAD:={052-483-0636/9600};NETname:={ＪＭＪ－ＮＥＴ};
  195.         NET:={JMJ}},
  196.     /*    { 名古屋 ＭＩＮＡ－ＮＥＴ},
  197.         {ROAD:={052-972-6430/14400};NETname:={ＭＩＮＡ－ＮＥＴ};
  198.         NET:={MIN}},
  199.         { 浜  松 },{},
  200.         { 豊  橋 },{},
  201.         { 静  岡 },{},
  202.         { 甲  府 },{},
  203.         { 沼  津 },{},*/
  204.         { 岡  崎 ＴＧＫ－ＮＥＴ},
  205.         {ROAD:={0564-24-5531/14400};NETname:={ＴＧＫ－ＮＥＴ};
  206.         NET:={TGK}},
  207.         { 安  城 オレンジ　ネット},
  208.         {ROAD:={0566-22-5089/14400};NETname:={オレンジ”ネット};
  209.         NET:={OTT}},
  210.         { 安  城 ＭＮＫ’ｓ　ＢＢＳ},
  211.         {ROAD:={0566-98-1639/9600};ROAD2:={0566-98-6946/9600};
  212.         ROAD3:={0566-98-9374/2400};
  213.         NETname:={ＭＮＫ’ｓ　ＢＢＳ};NET:={MNK}},
  214.         { 碧  南 ＪＣ－ＮＥＴ},
  215.         {ROAD:={0566-42-1838/14400};NETname:={ＪＣ－ＮＥＴ};
  216.         NET:={JCN};
  217.         },
  218.         { 豊  川 ＩＴＹ－Ｎｅｔ},
  219.         {ROAD:={05338-2-2622/14400};NETname:={ＩＴＹ－Ｎｅｔ};
  220.         NET:={ITY}},
  221.     /*    { 豊  田 },{},
  222.         { 刈  谷 },{},*/
  223.         { 春日井 ＫＭＦ－Ｎｅｔ},
  224.         {ROAD:={0568-83-4416/14400};ROAD2:={0568-83-4859/14400};
  225.         NETname:={ＫＭＦ－Ｎｅｔ};NET:={KMF}},
  226.     /*    { 高  山 },
  227.         {},*/
  228.         { 岐  阜 ＰＡＯ－ＮＥＴ},
  229.         {ROAD:={058-265-9281/14400};ROAD2:={058-265-8856/14400};
  230.         NETname:={ＰＡＯ－Ｎｅｔ};NET:={PAO}},
  231.     /*    { 大  垣 },{},
  232.         { 一  宮 },{},
  233.         {   津   },{},
  234.         { 四日市 },{},*/
  235.         { 中  止 },{nodeON:={}}
  236.         );
  237.     };
  238.     %KINKI1{
  239.         SNDMSG({erande_f.snd});
  240.         select({電話番号を選択下さい}|
  241.             {（現在は『}|RoaD|{』）},
  242.             ,,
  243.         { 大  阪 アリス　ネット},
  244.         {ROAD:={06-882-0685/9600};ROAD2:={06-882-0172/9600};
  245.         ROAD3:={06-882-0690/9600};ROAD4:={06-882-1733/9600};
  246.         NET:={ALS}},
  247.         { 枚  方 Ｙａｍａ　ＢＢＳ},
  248.         {ROAD:={0720-50-9412/9600};NETname:={Ｙａｍａ　ＢＢＳ};
  249.         NET:={YAM}},
  250.         { 枚  方 ＤＩＧＩＴＡＬ－ＢＢＳ},
  251.         {ROAD:={0720-39-4459/144000};ROAD2:={0720-39-4460/144000};
  252.         ROAD3:={0720-39-4461/144000};ROAD4:={0720-39-4462/144000};
  253.         NETname:={ＤＩＧＩＴＡＬ－ＢＢＳ};NET:={DIG}},
  254.         /*    {   堺   },{},
  255.             { 茨  木 },{},
  256.             { 和歌山 },{},
  257.             { 奈  良 },{},
  258.             { 彦  根 },{},
  259.             { 京  都 },{},
  260.             { 福知山 },{},
  261.             { 大  津 },{},*/
  262.         { 神  戸 ＡＯＩ－ＮＥＴ},
  263.         {ROAD:={078-631-7240/9600};ROAD2:={078-631-7547/144000};
  264.         ROAD3:={078-631-5943/9600};ROAD4:={078-631-0342/144000};
  265.         NETname:={ＡＯＩ－ＮＥＴ};NET:={AOI}},
  266.         { 姫  路 ＭＯＳ－ＮＥＴ},
  267.         {ROAD:={0792-45-9410/9600};NETname:={ＭＯＳ－ＮＥＴ};
  268.         NET:={MOS}},
  269.             { 中  止 },{nodeON:={}}
  270.             );
  271.         };
  272.     %CHUGOKU1{
  273.         SNDMSG({erande_f.snd});
  274.         select({電話番号を選択下さい}|
  275.             {（現在は『}|RoaD|{』）},
  276.             ,,
  277.             { 広  島 },{},
  278.             { 下  関 },{},
  279.             { 徳  山 },{},
  280.             { 宇  部 },{},
  281.             { 山  口 },{},
  282.             { 福  山 },{},
  283.             { 松  江 },{},
  284.             { 鳥  取 },{},
  285.             { 米  子 },{},
  286.             { 岡  山 },{},
  287.             { 中  止 },{nodeON:={}}
  288.             );
  289.         };
  290.     %SHIKOKU1{
  291.         SNDMSG({erande_f.snd});
  292.         select({電話番号を選択下さい}|
  293.             {（現在は『}|RoaD|{』）},
  294.             ,,
  295.             { 高  松 },{},
  296.             { 徳  島 },{},
  297.             { 高  知 },{},
  298.             { 松  山 },{},
  299.             { 中  止 },{nodeON:={}}
  300.             );
  301.         };
  302.  
  303.     %KYUSYU1{
  304.         SNDMSG({erande_f.snd});
  305.         select({電話番号を選択下さい}|
  306.             {（現在は『}|RoaD|{』）},
  307.             ,,
  308.         /*    { 福  岡 },{},
  309.             { 北九州 },{},
  310.             { 久留米 },{},
  311.             { 大牟田 },{},
  312.             { 佐  賀 },{},
  313.             { 佐世保 },{},
  314.             { 長  崎 },{},
  315.             { 熊  本 },{},
  316.             { 大  分 },{},
  317.             { 鹿児島 },{},*/
  318.         { 宮  崎 オビ－ネット[社会人のみ対象]},
  319.         {ROAD:={0987-25-2599/14400};NETname:={オビ－ネット};
  320.         NET:={OBI}},
  321.             { 中  止 },{nodeON:={}}
  322.             );
  323.         };
  324.     %OKINAWA1{
  325.         SNDMSG({erande_f.snd});
  326.         select({電話番号を選択下さい}|
  327.             {（現在は『}|RoaD|{』）},
  328.             ,,
  329.         { 那  覇 サラダハウス－ＢＢＳ},
  330.         {ROAD:={0988-57-5791/14400};NETname:={サラダハウス－ＢＢＳ};
  331.         NET:={SAR}},
  332.             { 中  止 },{nodeON:={}}
  333.             );
  334.         };
  335.  
  336.     %setNODE{
  337.     var nodeON[2];nodeON:={};
  338.     loop    ({SNDMSG({erande_f.snd});
  339.         footnote({ＲＯＡＤ１アクセス･ポイントの電話番号を設定処理中});
  340.         case    (nodeON={On},
  341.             {Yes},{intUSR;im({No})},
  342.             {No},{localName}
  343.             );
  344.         })
  345.     };
  346.     var RoaD[80];var RoaD2[80];var RoaD3[80];var RoaD4[80];
  347.     RoaD:=ROAD;RoaD2:=ROAD2;RoaD3:=ROAD3;RoaD4:=ROAD4;
  348.     ROAD:={};ROAD2:={};ROAD3:={};ROAD4:={};
  349.     setNODE;
  350.     road:=@nth(ROAD,1,{/});road2:=@nth(ROAD2,1,{/});
  351.     road3:=@nth(ROAD3,1,{/});road4:=@nth(ROAD4,1,{/});
  352.     };
  353. %localName{
  354.     select    ({ＲＯＡＤ１アクセス･ポイント地域を選択してください},
  355.         ,,
  356.     /*    { 北海道 },{nodeON:={On};HOKKAI1;im({Yes})},*/
  357.         { 東  北 },{nodeON:={On};TOHOKU1;im({Yes})},
  358.     /*    { 北関東 },{nodeON:={On};NKANTO1;im({Yes})},*/
  359.         { 南関東 },{nodeON:={On};SKANTO1;im({Yes})},
  360.         { 北信越 },{nodeON:={On};HOKURIK1;im({Yes})},
  361.         { 中  部 },{nodeON:={On};TYUBU1;im({Yes})},
  362.         { 近  畿 },{nodeON:={On};KINKI1;im({Yes})},
  363.     /*    { 中  国 },{nodeON:={On};CHUGOKU1;im({Yes})},
  364.         { 四  国 },{nodeON:={On};SHIKOKU1;im({Yes})},*/
  365.         { 九  州 },{nodeON:={On};KYUSYU1;im({Yes})},
  366.         { 沖  縄 },{nodeON:={On};OKINAWA1;im({Yes})},
  367.         { 直接入力},{nodeON:={On};setBBSname;im({Yes})},
  368.         { 取 消 },
  369.         {NETname:=netname;
  370.         ROAD:=RoaD;ROAD2:=RoaD2;ROAD3:=RoaD3;ROAD4:=RoaD4;im({No})}
  371.         );
  372.     };
  373. /*    電話番号の設定    */
  374. %setBBSTEL{
  375.     var gen[3];    var gen2[3];    var gen3[3];    var gen4[3];
  376.     var netname[40];var opentime[2];var closetime[2]; 
  377.     var road[80];    var road2[80];    var road3[80];    var road4[80];    
  378.     road:=@nth(ROAD,1,{/});
  379.     road2:=@nth(ROAD2,1,{/});
  380.     road3:=@nth(ROAD3,1,{/});
  381.     road4:=@nth(ROAD4,1,{/});
  382.     gen:=    @case(GEN,{Yes},{im({1})},{No},{im({2})},,{im({2})});
  383.     gen2:=    @case(GEN2,{Yes},{im({1})},{No},{im({2})},,{im({2})});
  384.     gen3:=    @case(GEN3,{Yes},{im({1})},{No},{im({2})},,{im({2})});
  385.     gen4:=    @case(GEN4,{Yes},{im({1})},{No},{im({2})},,{im({2})});
  386.     opentime:=openT; closetime:=closeT;
  387.     loop    ({
  388.         SNDMSG({erande_f.snd});    
  389. footnote({注意;アクセス時間制限が無い場合｢開・閉局時間｣＝空白にして下さい});
  390.         %a @plane(
  391.         {c○ネット名称＝★}|NETname|{\n}|
  392.         {t        開局時間(24H表示)　/xx\n}|
  393.         {t        閉局時間(24H表示)　/xx\n}|
  394.         {s    ＤＯＲＡ電話帳　  /ＢＢＳを捜す \n}|
  395.         {s    電話番号クリア    /CH.1  /CH.2  /CH.3  /CH.4\n}|
  396.         {t　ｃｈ．１の電話番号 　       /\n}|
  397.         {r　ch.1 のアクセス時間制限  /有り /無し \n}|
  398.         {t　ｃｈ．２の電話番号 　       /\n}|
  399.         {r　ch.2 のアクセス時間制限  /有り /無し \n}|
  400.         {t　ｃｈ．３の電話番号 　       /\n}|
  401.         {r　ch.3 のアクセス時間制限  /有り /無し \n}|
  402.         {t　ｃｈ．４の電話番号 　       /\n}|
  403.         {r　ch.4 のアクセス時間制限  /有り /無し \n}|
  404.         {c 設定を選択すると通信速度の設定が出来ます\n}|
  405.         {s                        / 設定 / 取消 \n},
  406.     opentime,closetime,road,gen,road2,gen2,
  407.     road3,gen3,road4,gen4);
  408. opentime:=    @head(@getline(a,1,1),{\n});
  409. closetime:=    @head(@getline(a,2,1),{\n});
  410. %telno    @head(@getline(a,3,1),{\n});
  411. %clear    @head(@getline(a,4,1),{\n});
  412. road:=    @head(@getline(a,5,1),{\n});    gen:=    @head(@getline(a,6,1),{\n});
  413. road2:=    @head(@getline(a,7,1),{\n});    gen2:=    @head(@getline(a,8,1),{\n});
  414. road3:=    @head(@getline(a,9,1),{\n});    gen3:=    @head(@getline(a,10,1),{\n});
  415. road4:=    @head(@getline(a,11,1),{\n});    gen4:=    @head(@getline(a,12,1),{\n});
  416. %ok    @head(@getline(a,13,1),{\n});
  417.     case    (telno,
  418.         { 1},{
  419.         netname:=NETname;
  420.         NETname:={};NET:={};setROAD}
  421.         );
  422.     case    (clear,
  423.         { 1},{road:={}},
  424.         { 2},{road2:={}},
  425.         { 3},{road3:={}},
  426.         { 4},{road4:={}});
  427.     case(ok,{ 1},{    openT:=opentime;
  428.             closeT:=closetime;
  429.             ROAD:=@im(road|{/}|@tail(ROAD,{/}));
  430.             ROAD2:=@im(road2|{/}|@tail(ROAD2,{/}));
  431.             ROAD3:=@im(road3|{/}|@tail(ROAD3,{/}));
  432.             ROAD4:=@im(road4|{/}|@tail(ROAD4,{/}));
  433.         case(gen,{ 1},{GEN:={Yes}},{ 2},{GEN:={No}},,{GEN:={No}});
  434.         case(gen2,{ 1},{GEN2:={Yes}},{ 2},{GEN2:={No}},,{GEN2:={No}});
  435.         case(gen3,{ 1},{GEN3:={Yes}},{ 2},{GEN3:={No}},,{GEN3:={No}});
  436.         case(gen4,{ 1},{GEN4:={Yes}},{ 2},{GEN4:={No}},,{GEN4:={No}});
  437.         setNETbps;im({No})},
  438.         { 2},{im({No})},,{im({Yes})});
  439.         });
  440.     };
  441.  
  442. /*    USER-ID & PASSWORDの設定    */
  443. %txlpc    {[password]
  444.     execTXL({nul},{pc }|password|{ }|TEMP2|{fapxpc.tmp});
  445.     %pc @read(TEMP2|{fapxpc.tmp});
  446.     delfile(TEMP2|{fapxpc.tmp});
  447.     case(pc,{Error(SUM)},{im(password)},,{im(pc)});
  448.     };
  449. %pwpc    {
  450.     var    p[35];
  451.     var    n[1];
  452.     PWP:=@txlpc(@head(passp,{,}));
  453.     p:=@body(passp,{,});    n:=1;
  454.     loop    ({
  455.         %pz @head(p,{,});
  456.         case    (pz,
  457.             {},{PWP:=PWP|{,}},,
  458.             {PWP:=PWP|{,}|@txlpc(pz)});
  459.         p:=@body(p,{,});
  460.         n:=n+1;
  461.         im(n!=4)
  462.         });
  463.     };
  464.  
  465. %setID    {var id[8];
  466.     %pass PassWord;
  467.     %handle HanDLe;
  468.     case (ID={},{Yes},{id:={GUEST}},{No},{id:=ID});
  469.     loop    ({
  470.         footnote({ユーザー情報を設定して下さい});SNDMSG({nyuryo_f.snd});        %a @plane(
  471.             {cユーザー情報を設定して下さい\n}|
  472.             {tユーザーＩＤ  /xxxxxxxx\n}|
  473.             {tパスワード    /xxxxxxxx\n}|
  474.             {tハンドル名    /xxxxxxxx\n}|
  475.             {s              / 設定 / 取消 },
  476.             id,pass,handle);
  477. id:=    @head(@getline(a,1,1),{\n});%pass    @head(@getline(a,2,1),{\n});
  478. %handle    @head(@getline(a,3,1),{\n});%ok    @head(@getline(a,4,1),{\n});
  479.         case    (ok,
  480.             { 1},
  481.             {
  482.             ID:=id;
  483.             PassWord:=pass;
  484.             HanDLe:=handle;im({No})},
  485.             { 2},{im({No})},,{im({No})});
  486.         })};
  487. %setAT    {var type[10];
  488.     footnote({モデムのタイプを選択して下さい});
  489.     type := @select({どういうタイプのモデムですか？},
  490.         Wtime4,{im({1200n})},
  491.         {  １２００　                  ＭＮＰなし  },{im({1200n})},
  492.         {  ２４００　                  ＭＮＰなし  },{im({2400n})},
  493.         {  ２４００(端末速度2400)　    ＭＮＰあり  },{im({2400m})},
  494.         {  ２４００(端末速度4800)　    ＭＮＰあり  },{im({4800m})},
  495.         {  ９６００(端末速度9600)　    ＭＮＰあり  },{im({9600m})},
  496.         {  14400以上(端末速度19200)　ＭＮＰあり  },{im({19200m})},
  497.         {  38400以上(端末速度38400)　ＭＮＰあり  },{im({38400m})});
  498.     SNDMSG({nyuryo_f.snd});
  499.     footnote({ＡＴコマンドを設定して下さい});
  500.     %a @input({ATコマンドを設定して下さい  例｢ATX3\N2\V1\Q2\J0｣},,
  501.                         {AT}|@head(MODEM,{/}));
  502.     case    (a<>{},{Yes},
  503.         {case(@getchar(a,1,2),{AT},
  504.             {case(a=@head(a,{\}),{Yes},
  505.                 {MODEM:=@getchar(a,3,999)|{/}|
  506.                     @getchar(a,3,999)|{/AT直接指定_}|type;},                ,{MODEM:=@getchar(a,3,999)|{/}|
  507.                     {/AT直接指定_}|type;})})
  508.         },{No},{setAT})};
  509. %FUJITSU{
  510.     SNDMSG({erande_f.snd});
  511.     footnote({モデムの機種を選んで下さい});
  512.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  513.     Wtime4,{},
  514.     {内蔵1200},     {MODEM:={X3//内蔵1200_1200n}},
  515.     {内蔵2400},    {MODEM:={X3/\N3\V1\Q3\J0%C0/内蔵2400_9600m}},
  516.     {富士通 PM1200F},{MODEM:={X3//PM1200F_1200n}},
  517.     {富士通 PM2400F},{MODEM:={X3/\N3\V1\Q3\J0%C0/PM2400F_9600m}},
  518.     {富士通 PM2400FII},{MODEM:={X3/\N7\Q3\J0\V2%C0/PM2400FII_9600m}},
  519.     {富士通 OAMD-301},{MODEM:={X3&D2/\N3\Q3\J0\V2/OAMD-301_9600m}},
  520.     {ATコマンド直設定 },{setAT},{変更しない},{}
  521.     )};
  522. %AIWA    {
  523.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  524.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  525.     Wtime4,{},
  526.     {AIWA PV-A1200},{MODEM:={X3//PV-A1200_1200n}},
  527.     {AIWA PV-A2400},{MODEM:={X3//PV-A2400_2400n}},
  528.     {AIWA PV-A2400MNP4},{MODEM:={&D2/&M4\Q1/PV-A2400MNP4_9600m}},
  529.     {AIWA PV-A24MNP5},{MODEM:={X3&D2/\N2\Q3\J0/PV-A24MNP5_9600m}},
  530.     {AIWA PV-A24V42},{MODEM:={X3&D2/\N2\Q3\J0/PV-A24V42_9600m}},
  531.     {AIWA PV-M24},{MODEM:={X3&D2/\N2\Q3\J0\V2/PV-M24_9600m}},
  532.     {AIWA PV-M24M5},{MODEM:={X3&D2/\N2\Q3\J0\V2/PV-M24M5_9600m}},
  533.     {AIWA PV-M24B5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C0/PV-M24B5_9600m}},
  534.     {AIWA PV-A24B5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C0/PV-A24B5_9600m}},
  535.     {AIWA PV-A96V5},{MODEM:={X3&D2/\N2\Q3\J0\V2%C0/PV-A96V5_9600m}},
  536.     {AIWA PV-AF144V5},{MODEM:={X4&D2/\N2\Q3\J0\V2%C1/PV-AF144V5_19200m}},
  537.     {},{},
  538.     {ATコマンド直設定 },{setAT},{変更しない},{}
  539.     )};
  540. %OMRON    {
  541.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  542.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  543.     Wtime4,{},
  544. {OMRON MD1200},{MODEM:={X4//MD1200_1200n}},
  545. {OMRON MD12FS},{MODEM:={X4//MD12FS_1200n}},
  546. {OMRON MD2400F},{MODEM:={X4/\N2\V1\Q2\J0/MD2400F_2400m}},
  547. {OMRON MD24FB5V},{MODEM:={X4/\N2\Q2\J0\V2%C1/MD24FB5V_9600m}},
  548. {OMRON MD24FP4},{MODEM:={X4/\N2\Q2\J0/MD24FP4_2400m}},
  549. {OMRON MD24FP4II},{MODEM:={X4&P2/\N2\Q2\J0/MD24FP4II_9600m}},
  550. {OMRON MD24FP5V},{MODEM:={X4/\N2\Q2\J0\V2%C1/MD24FP5V_9600m}},
  551. {OMRON MD24FS4},{MODEM:={X4/\N2\Q2\J0/MD24FS4_2400m}},
  552. {OMRON MD24FS5},{MODEM:={X4&E0/\N2\Q2\J0%C1/MD24FS5_4800m}},
  553. {OMRON MD24FS7},{MODEM:={X4/\N2\Q2\J0%C1/MD24FS7_4800m}},
  554. {OMRON MD246FL10V},{MODEM:={X4/\N2\Q2%C1\J0/MD24FL10V_9600m}},
  555. {OMRON MD24XL10V},{MODEM:={X4/\N2\Q2%C1\J0/MD24XL10V_9600m}},
  556. {OMRON MD96FB5V},{MODEM:={X4&E0/\N2\Q2%C1&M5*C1\D0\J0\V2/MD96FB5V_9600m}},
  557. {OMRON MD96FL10V},{MODEM:={X4/\N2\Q2%C1\J0/MD96FL10V_19200m}},
  558. {OMRON MD96XL10V},{MODEM:={X4/\N2\Q2%C1\J0/MD96XL10V_19200m}},
  559. {OMRON MD96XT10V},{MODEM:={X4/\N2\Q2%C1\J0/MD96XT10V_19200m}},
  560. {OMRON MD144XT10V},{MODEM:={X4/\N2\Q2%C1&M5*C1\D0\J0/MD144XT10V_19200m}},
  561.     {ATコマンド直設定 },{setAT},{変更しない},{}
  562.     )};
  563. %EPSON    {
  564.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  565.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  566.     Wtime4,{},
  567.     {EPSON SR-120S},{MODEM:={X3//SR-120S_1200n}},
  568.     {EPSON SR-240AT},{MODEM:={X3//SR-240AT_2400n}},
  569.     {EPSON SR-240V},{MODEM:={X3\V2/N1&K1%C1/SR-240V_9600m}},
  570.     {ATコマンド直設定 },{setAT},{変更しない},{}
  571.     )};
  572. %NEC    {
  573.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  574.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  575.     Wtime4,{},
  576.     {NEC COMSTAR 2424},{MODEM:={X3/\N3\Q2/COMSTAR 2424_2400m}},
  577.     {NEC COMSTARZ CLUB24/5}
  578.         ,{MODEM:={X4/\N3\Q3\J0\V2&C1&D2&S1/COMSTARZ CLUB24/5_2400m}},
  579.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  580.     )};
  581. %SONY    {
  582.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  583.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  584.     Wtime4,{},
  585.     {SONY IT-V1200},{MODEM:={X3//IT-V1200_1200n}},
  586.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  587.     )};
  588. %MICROCORE{
  589.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  590.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  591.     Wtime4,{},
  592.     {MICROCORE MC24PA5},{MODEM:={X3/\N5\Q2\J0\X1%C1/MC24PA5_9600m}},
  593.     {MICROCORE MC14400FX},{MODEM:={X4/\N5\Q2\J0%C1/MC14400FX_19200m}},
  594.     {MICROCORE MC14400FX"ｱﾘｽﾈｯﾄ"},
  595.     {MODEM:={X4/\N5%C1/MC14400FX_19200m}},
  596.     {MICROCORE MC14400FX"ﾌﾞﾚｰｸ"},
  597.     {MODEM:={X4/\A1\K3\N5%J8%C1/MC14400FX_19200m}},
  598.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  599.     )};
  600. %PROSIDE{
  601.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  602.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  603.     Wtime4,{},
  604.     {PROSIDE PS-1414VQE},
  605.     {MODEM:={X3L1&D2/N1W1&K3&P3\A3\N3%C1/PS1414VQE_19200m}},
  606.     {},{},
  607.     {ATコマンド直設定 },{setAT},
  608.     {変更しない},{}
  609.     )};
  610. %INTEGURAN{
  611.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  612.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  613.     Wtime4,{},
  614.     {ｲﾝﾃｸﾞﾗﾝ MP-1414F},{MODEM:={X4/&F&S1&E4%B0\N3/MP-1414F_14400m}},
  615.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  616.     )};
  617.     
  618. %NISSEI    {
  619.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  620.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  621.     Wtime4,{},
  622.     {NISSEI FM9624},
  623.     {MODEM:={X3/\N3\Q3%C1/FM9624_9600m}},
  624.     {},{},
  625.     {ATコマンド直設定 },{setAT},
  626.     {変更しない},{}
  627.     )};
  628.  
  629. %SUNTAC{
  630.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  631.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  632.     Wtime4,{},
  633.     {SUNTAC MS144AVF},{MODEM:={X3/\N3\V2\Q2\J0\X0%C1/MS144AVF_19200m}},
  634.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  635.     )};
  636.  
  637. %DYNALINK{
  638.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  639.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  640.     Wtime4,{},
  641.     {DYNALINK 1414VE},
  642.         {MODEM:={X3&D2/N1W1&K3&P2\A3\N2S95=46/DYNALINK1414VE_19200m}},
  643.     {},{},
  644.     {ATコマンド直設定 },{setAT},
  645.     {変更しない},{}
  646.     )};
  647. %BOCA    {
  648.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  649.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  650.     Wtime4,{},
  651.     {BOCA RESEARCH M144JE},{MODEM:={X3/&K3&P3\J0\A3\N2/M144JE_19200m}},
  652.     {},{},
  653.     {ATコマンド直設定 },{setAT},
  654.     {変更しない},{}
  655.     )};
  656. %setMODEM{
  657.     %modem    {case(MODEM,{},{im({未設定})},,{head(@tail(MODEM,{/}),{_})})};
  658.     SNDMSG({erande_f.snd});footnote({モデムのメーカーを選んで下さい});
  659.     select({モデムのメーカーを選んで下さい},
  660.     Wtime4,{},
  661.     {  ＦＵＪＩＴＳＵ  },{FUJITSU},    {     ＡＩＷＡ     },{AIWA},
  662.     {    ＯＭＲＯＮ    },{OMRON},    {    ＥＰＳＯＮ    },{EPSON},
  663.     {      ＮＥＣ      },{NEC},    {     ＳＯＮＹ     },{SONY},
  664.     {   マイクロコア   },{MICROCORE},{    プロサイド    },{PROSIDE},
  665.     {　インテグラン    },{INTEGURAN},{ＳＵＮＴＡＣ},{SUNTAC},
  666.     { ＤＹＮＡＬＩＮＫ },{DYNALINK},{  BOCA RESEARCH   },{BOCA},
  667.     {     日成電機     },{NISSEI},{ ATコマンド直設定 },{setAT},
  668.     { クロス･ケーブル接続 },{setCABL}
  669.     )};
  670. /*    DTEの調整    */
  671. %BsetDTE{
  672.     case    (MODEM,{},{footnote({モデム機種の設定を実施下さい});wait(3)},
  673.         ,{setDTE});
  674.     };
  675.  
  676. %setDTE    {var dte[7];
  677.     %modem    @head(@tail(MODEM,{/}),{_});
  678.     dte:=    @head(@tail(MODEM,{_}),{});
  679.     dte:=    @getchar(dte,1,@nochar(dte)-1);
  680.     %DtE    dte;
  681.     %mn    @getchar(MODEM,@nochar(MODEM),1);
  682.     loop({
  683.     %ModeM @nth(MODEM,1,{/})|{/}|@nth(MODEM,2,{/})|{/}|modem|{_}|dte|mn;
  684.     %Dte    @case    (dte,
  685.             {2400},{im({ 1})},{4800},{im({ 2})},{9600},{im({ 3})},
  686.             {14400},{im({ 4})},{19200},{im({ 5})},
  687.             {38400},{im({ 6})},,{im({ 7})}
  688.             );
  689.         %a @plane(
  690.             {c 現状のモデム設定 \n}|
  691.             {c =}|MODEM|{ \n}|
  692.             {c 調整後のモデム設定 \n}|
  693.             {c =}|ModeM|{ \n}|
  694.             {c 現状の 端末速度設定 =}|dte|{bps \n}|
  695.             {c }|NET|{の端末速度を調整して下さい。\n}|
  696.             {c 調整後の端末速度 =}|dte|{bps \n}|
  697.             {c 端末速度   \n}|
  698.             {r/2400/4800/9600/14400/19200/38400/高速\n}|
  699.             {c ☆設定はｻﾌﾞﾒﾆｭｰの｢保存する>}|NET|{.USR｣で確定｡\n}|
  700.             {s                 / 設定 / 確認 / 取消 },
  701.                     Dte);
  702.         %Dte    @head(@getline(a,1,1),{\n});
  703.         %ok    @head(@getline(a,2,1),{\n});
  704.         case    (Dte,
  705.             { 1},{dte:={2400}},{ 2},{dte:={4800}},
  706.             { 3},{dte:={9600}},{ 4},{dte:={14400}},
  707.             { 5},{dte:={19200}},{ 6},{dte:={38400}},
  708.             { 7},{dte:=DtE}
  709.             );
  710.         case    (ok,
  711.             { 1},{MODEM:=@nth(MODEM,1,{/})|{/}|@nth(MODEM,2,{/})
  712.                 |{/}|modem|{_}|dte|mn},
  713.             { 2},{im({Yes})},
  714.             { 3},{im({No})},
  715.             ,{case    (ok={ 0} && dte={ 0},
  716.                 {Yes},{im({No})},
  717.                 {No},{im({Yes})});
  718.             });
  719.         });
  720.     };
  721.  
  722.  
  723. /*    ダイヤル種類の設定    */
  724. %setDIAL{%dial    {case    (DIAL,
  725.             {P},{im({ダイヤルパルス式})},
  726.             {T},{im({プッシュホン式})},
  727.             ,   {im({未設定})})};
  728.     footnote({電話回線の種類を指定して下さい});
  729.     select    ({電話回線の種類を指定して下さい  現在は}|@dial|{です},
  730.         Wtime4,{},
  731.         {ダイヤルパルス式},{DIAL:={P}},
  732.         { プッシュホン式 },{DIAL:={T}}
  733.         )};
  734. %setMDM    {loop    ({
  735.         SNDMSG({erande_f.snd});
  736.         footnote({設定する情報を選択して下さい});
  737.         select    ({設定する情報を選択して下さい  << モデム設定 >>},
  738.             Wtime4,{im({No})},
  739.             {    モデム機種の設定    },{setMODEM;im({Yes})},
  740.             {   ＤＴＥの調整をする   },{BsetDTE;im({Yes})},
  741.             {   ダイヤル種類の設定   },{setDIAL;im({Yes})},
  742.             {        設定終了        },{im({No})}
  743.             )})};
  744. /* '93/ 2 / 7 Take */
  745. %setCABL{%modem    {case    (MODEM,{},{im({未設定})},
  746.             ,  {head(@tail(MODEM,{/}),{_})}
  747.             )};
  748.     SNDMSG({erande_f.snd});
  749.     footnote({ホストのバージョンを選んで下さい});
  750.     select({ﾎｽﾄのﾊﾞｰｼﾞｮﾝを選んで下さい  現在は｢}|@modem|{｣です},
  751.     Wtime4,{},
  752.     {RTBBS5.3αe以前},     {MODEM:={RET//RTBBS5.3αe_00s}},
  753.     {RTBBS5.3βa以降},     {MODEM:={ESC//RTBBS5.3βa_00s}},
  754.     {変更しない},{}
  755.     )};
  756.  
  757. /*    ID検索ﾘｽﾄの設定    */
  758. %setRTTFIL{
  759.     footnote({RTTLC.EXEファイルを指定してください});
  760.     SNDMSG({erande_f.snd});
  761.     %rttlfil @filesel;
  762.     case    (rttlfil<>{},
  763.         {Yes},
  764.         {
  765.         %cdir    @getcdir;
  766.         case    (@nochar(cdir)==3,
  767.             {Yes},{RTTLC:=cdir|rttlfil},
  768.             {No},{RTTLC:=cdir|{\}|rttlfil}
  769.             );rttl:=RTTLC;
  770.         });
  771.     im({Yes});
  772.     };
  773. %setMEMBER{
  774.     footnote({ＩＤ検索用リストファイルを指定してください});
  775.     SNDMSG({erande_f.snd});
  776.     %member @filesel;
  777.     case    (member<>{},
  778.         {Yes},
  779.         {
  780.         %cdir    @getcdir;
  781.         case    (@nochar(cdir)==3,
  782.             {Yes},{MEMBER:=cdir|member},
  783.             {No},{MEMBER:=cdir|{\}|member}
  784.             );idlist:=MEMBER;
  785.         });
  786.     im({Yes});
  787.     };
  788.  
  789. %chkDIR    {
  790.     [DIR]
  791.     im(DIR={}||@getchar(DIR,2,2)={:\});
  792.     };
  793.  
  794. %setLOGF{
  795.     %chkDIR    {
  796.         [DIR]
  797.         im(DIR={}||@getchar(DIR,2,2)={:\});
  798.         };
  799.     %dirHLP    {☆自動スイッチの使い方☆
  800.  
  801.     別なネットを登録するときには、「テンポラリ用」・「ログカッタ」の
  802.     ディレクトリは今までのデータが使用できます。
  803.     そこで上記以外の項目を空欄にし、「ログ保存用ディレクトリ」だけを入力
  804.     して「自動スイッチ」を選択して下さい。
  805.     これで、他のディレクトリは自動設定されます。
  806.  
  807. ☆初期化スイッチの使い方☆
  808.  
  809.     このスイッチを使うと、「テンポラリ用」・「ログカッタ」のディレクトリ
  810.     以外の項目を空欄（初期化）出来ます};
  811.     var    arcdir    [64];    var    wkdir    [64];    var    updir    [64];
  812.     var    fswdir    [64];    var    rttldir    [64];    var    viewdir    [64];
  813.     var    idlist    [64];    var    rttl    [64];    
  814.     wkdir:=        TEMP;
  815.     updir:=        UP;
  816.     rttldir    :=    RTTLdir;
  817.     rttl    :=    RTTLC;
  818.     fswdir    :=    FSW;
  819.     idlist    :=    MEMBER;
  820.     viewdir    :=    VIEWLOG;
  821.     loop    ({
  822.     arcdir:=    LOG;
  823.     case(updir={},
  824.         {Yes},{    case    (LOG={},
  825.                 {No},{updir:=@im(LOG|{\UP});UP:=updir})
  826.             });
  827.     case(fswdir={},
  828.         {Yes},{    case    (LOG={},
  829.                 {No},{fswdir:=@im(LOG|{\FREESOFT});FSW:=fswdir
  830.                 })
  831.             });
  832.     case(idlist={},
  833.         {Yes},    {
  834.             case    (LOG={},
  835.                 {No},{idlist:=@im(LOG|{\PROFILE\member.lst});
  836.                 MEMBER:=idlist
  837.                 })
  838.             });
  839.         footnote({｢ログカッタ指定｣以外は､ログ保存用ﾃﾞｨﾚｸﾄﾘを}|
  840.             {入力すれば自動設定できます。});
  841.         SNDMSG({nyuryo_f.snd});
  842.         %a @plane(
  843.             {tログ保存用             /\n}|
  844.             {tテンポラリ用           /\n}|
  845.             {tアップロード用         /\n}|
  846.             {tフリーソフト用         /\n}|
  847.             {tＲＴＴＬＣ出力用       /\n}|
  848.             {t第２ログ参照用         /\n}|
  849.             {s 検索                 /ﾛｸﾞ保存 /ﾃﾝﾎﾟﾗﾘ /ｱｯﾌﾟﾛｰﾄﾞ\n}|
  850.             {s                      /ﾌﾘｰｿﾌﾄ /RTTLC出力/ﾛｸﾞ参照 \n}|
  851.             {tログカッタ(RTTLC)指定;ﾌｧｲﾙ名まで入力/\n}|
  852.             {c RTTLCが無い場合は｢RTTLC｣と入力\n}|
  853.             {tＩＤ検索リスト指定   ;ﾌｧｲﾙ名まで入力/\n}|
  854.             {s                      /RTTLCﾌｧｲﾙ/ID検索ﾌｧｲﾙ\n}|
  855.             {s　　　 　　　　/ 設定 / 取消 / 自動 /初期化/ HELP},
  856.             arcdir,wkdir,updir,fswdir,rttldir,viewdir,rttl,idlist);
  857.         arcdir:=@head(@getline(a,1,1),{\n});
  858.         wkdir:=    @head(@getline(a,2,1),{\n});
  859.         updir:=    @head(@getline(a,3,1),{\n});
  860.         fswdir:=@head(@getline(a,4,1),{\n});
  861.         rttldir:=@head(@getline(a,5,1),{\n});
  862.         viewdir:=@head(@getline(a,6,1),{\n});
  863.         %sel1    @head(@getline(a,7,1),{\n});
  864.         %sel2    @head(@getline(a,8,1),{\n});
  865.         rttl:=    @head(@getline(a,9,1),{\n});
  866.         idlist:=@head(@getline(a,10,1),{\n});
  867.         %sel3    @head(@getline(a,11,1),{\n});
  868.         %ok    @head(@getline(a,12,1),{\n});
  869.         case    (sel1,
  870.             { 1},
  871.             {arcdir:=@selDIR({ログ保存ディレクトリ});im({Yes})},
  872.             { 2},
  873.             {wkdir:=@selDIR({テンポラリディレクトリ})},
  874.             { 3},
  875.             {updir:=@selDIR({アップロードディレクトリ})},
  876.             );
  877.         case    (sel2,
  878.             { 1},
  879.             {fswdir:=@selDIR({フリーソフト用ディレクトリ})},
  880.             { 2},
  881.             {rttldir:=@selDIR({ＲＴＴＬＣ出力ディレクトリ})},
  882.             { 3},
  883.             {viewdir:=@selDIR({ログ参照時の第２ディレクトリ})},
  884.             );
  885.         case    (sel3,
  886.             { 1},{setRTTFIL},
  887.             { 2},{setMEMBER}
  888.             );
  889.         LOG:=arcdir;
  890.         case    (ok,
  891.             { 1},
  892.             {
  893.             case    (@chkDIR(arcdir)&&@chkDIR(wkdir)&&
  894.                  @chkDIR(updir)    &&@chkDIR(fswdir)&&
  895.                  @chkDIR(rttldir)&&@chkDIR(viewdir),
  896.                 {Yes},
  897.                 {
  898.                 TEMP:=wkdir;
  899.                 UP:=updir;
  900.                 FSW:=fswdir;
  901.                 RTTLdir:=rttldir;
  902.                 VIEWLOG:=viewdir;
  903.                 MEMBER:=idlist;
  904.     /*ｱｸｾｽ前にﾃﾞｨﾚｸﾄﾘを作成*/
  905.     init;
  906.     var ProFile[64];
  907.     case    (@nochar(MEMBER),
  908.         0,{ProFile:=LOG2|{PROFILE\member.lst}},
  909.         3,{ProFile:=MEMBER},
  910.         ,{ProFile:=MEMBER}
  911.         );
  912.     var FreeSoft[64];
  913.     case    (@nochar(FSW),
  914.         0,{FreeSoft:=LOG2|{FREESOFT}},
  915.         3,{FreeSoft:=FSW},
  916.         ,{FreeSoft:=FSW}
  917.         );
  918.     mkdir2(LOG2|{ｱｸｾｽdat});        mkdir2(TEMP);
  919.     mkdir2(LOG2|{board});        mkdir2(@body(ProFile,,{\}));
  920.     mkdir2(LOG2|{DATALIB});        mkdir2(@body(FreeSoft,,{\}));
  921.     mkdir2(LOG2|{fnews});        /*mkdir2(RTTLdir)*/;
  922.                 },
  923.                 {No},{SNDMSG({okasi_f.snd});im({Yes})}
  924.                 );
  925.             case    (@tail(rttl,{\})={RTTLC.EXE}
  926.                     ||@tail(rttl,{\})={RTTLC}
  927.                     ||@tail(rttl,{\})={rttlc.exe}
  928.                     ||@tail(rttl,{\})={rttlc},
  929.                 {Yes},{RTTLC:=rttl},
  930.                 {No},{footnote({RTTLCをﾄﾞﾗｲﾌﾞ名からのﾌﾙﾊﾟｽで}                    |{入力して下さい(拡張子は不要)});
  931.                 SNDMSG({okasi_f.snd});wait(3);im({Yes})}
  932.                 );
  933.             },
  934.             { 2},{im({No})},
  935.             { 3},{im({Yes})},
  936.             { 4},{intUSR;updir:={};fswdir:={};
  937.             rttldir:={};viewdir:={};idlist:={};im({Yes})},
  938.             { 5},{HLPview(dirHLP);im({Yes})},
  939.             ,{im(!(sel1={ 0}&&sel2={ 0}&&sel3={ 0}))}
  940.             );
  941.         });
  942.     };
  943.  
  944. /*    背景色の設定をする    */
  945. %setCOLOR{case    (R,{},{R:=0});case    (G,{},{G:=0});    case    (B,{},{B:=0});
  946.     SNDMSG({erande_f.snd});footnote({背景色の変更をします});
  947.     loop    ({select    ({背景色の変更をします}|
  948.                 {  現在は r=}|R|{ g=}|G|{ b=}|B|{ です},
  949.             Wtime4,{im({No})},
  950.             {赤↑},
  951.             {case(R<251,{Yes},{R:=R+5;backclr(R,G,B)});im({Yes})},
  952.             {赤↓},
  953.             {case(R>  4,{Yes},{R:=R-5;backclr(R,G,B)});im({Yes})},
  954.             {緑↑},
  955.             {case(G<251,{Yes},{G:=G+5;backclr(R,G,B)});im({Yes})},
  956.             {緑↓},
  957.             {case(G>  4,{Yes},{G:=G-5;backclr(R,G,B)});im({Yes})},
  958.             {青↑},
  959.             {case(B<251,{Yes},{B:=B+5;backclr(R,G,B)});im({Yes})},
  960.             {青↓},
  961.             {case(B>  4,{Yes},{B:=B-5;backclr(R,G,B)});im({Yes})},
  962.             {終了},
  963.             {im({No})}
  964.             )})};
  965. /*    音声メッセージファイルのコピー    */
  966. %copySND{[snddir]        /* 最後は｢\｣であること */
  967.     display    (BELL);footnote({システムＣＤをセットして下さい});
  968.     select({システムＣＤをセットして下さい},
  969.         Wtime4,,
  970.         { ＯＫ },
  971.         {
  972.         case    (@setcdir({q:\fj2\msg}),
  973.             {Yes},
  974.             {
  975.             footnote({erande_f.sndをコピーします});
  976.             command({copy order\erande_f.snd }|snddir|{*.*});
  977.             footnote({nyuryo_f.sndをコピーします});
  978.             footnote({nyuryo_f.sndをコピーします});
  979.             command({copy order\nyuryo_f.snd }|snddir|{*.*});
  980.             footnote({kaknin_f.sndをコピーします});
  981.             command({copy order\kaknin_f.snd }|snddir|{*.*});
  982.             footnote({owata_f.sndをコピーします});
  983.             command({copy info\owata_f.snd }|snddir|{*.*});
  984.             footnote({okasi_f.sndをコピーします});
  985.             command({copy warning\okasi_f.snd }|snddir|{*.*});
  986.             footnote({jikan_f.sndをコピーします});
  987.             command({copy info\jikan_f.snd }|snddir|{*.*});
  988.             footnote({});
  989.             });
  990.         },{ ＮＯ });
  991.     };
  992. /*    音声ﾒｯｾｰｼﾞﾌｧｲﾙの設定    */
  993. %setSNDDIR{
  994.     var    sound[64];
  995.     sound:=    SOUND;
  996.     loop    ({
  997.         footnote({ディレクトリ名を入力して下さい});
  998.         SNDMSG({nyuryo_f.snd});
  999.         %a @plane(
  1000.             {c音声ﾒｯｾｰｼﾞﾌｧｲﾙを格納するﾃﾞｨﾚｸﾄﾘを指定して下さい\n}|
  1001.             {t  /\n}|
  1002.             {s    / ﾃﾞｨﾚｸﾄﾘ検索 \n}|
  1003.             {c  ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}|
  1004.             {c  例  A:\MOPTERM\SOUND\n}|
  1005.             {s                 / 設定 / 取消 },sound);
  1006.         %snd    @head(@getline(a,1,1),{\n});
  1007.         %sel    @head(@getline(a,2,1),{\n});
  1008.         %ok    @head(@getline(a,3,1),{\n});
  1009.         case(snd,{},,,{sound:=snd});
  1010.         case(sel,{ 1},{sound:=@selDIR({音声ﾒｯｾｰｼﾞﾌｧｲﾙ格納ﾃﾞｨﾚｸﾄﾘ})});
  1011.         case    (ok,{ 1},
  1012.             {
  1013.             case    (@chkDIR(sound),
  1014.                 {Yes},
  1015.                 {
  1016.                 %sound2    @dir2(sound);
  1017.                 mkdir2(sound);
  1018.                 case(    @filechk(sound2|{erande_f.snd})&&
  1019.                     @filechk(sound2|{nyuryo_f.snd})&&
  1020.                     @filechk(sound2|{kaknin_f.snd})&&
  1021.                     @filechk(sound2|{okasi_f.snd})&&
  1022.                     @filechk(sound2|{owata_f.snd})&&
  1023.                     @filechk(sound2|{jikan_f.snd})&&
  1024.                     mopver<>{Win31},
  1025.                     {No},{copySND(sound2)});
  1026.                 VBELL:={No};
  1027.                 SOUND:=sound;
  1028.                 SOUND2:=@dir2(SOUND);
  1029.                 },
  1030.                 {No},{im({Yes})})
  1031.             },
  1032.             {No},{im({No})},
  1033.             ,{im({Yes})})
  1034.         });
  1035.     };
  1036. /*    belfieの設定    */
  1037. %setBELFIL{SNDMSG({erande_f.snd});
  1038.     footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
  1039.     %bell    @filesel({SND});
  1040.     %bell2    {case    (@nochar(@getcdir),{3},{im(@getcdir|bell)},
  1041.                     ,{im(@getcdir|{\}|bell)})};
  1042.     case    (bell,{},{BELFIL:={}},,{BELFIL:=@bell2});
  1043.     case(@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
  1044.         {Yes},{bellfile(BELFIL)});
  1045.     SOUND:={};SOUND2:={};VBELL:={No};
  1046.     };
  1047. /*    入力プロンプトの設定    */
  1048. %setPRMPT{
  1049.     SNDMSG({erande_f.snd});
  1050.     footnote({入力時のプロンプト方法を指定して下さい});
  1051.     select({入力時のプロンプト方法を指定して下さい},
  1052.         Wtime4,
  1053.         {case(VBELL,{Yes},,,{VBELL:={No}})},
  1054.         {   音声メッセージ   },
  1055.         {VBELL:={No};BELL:={};setSNDDIR},
  1056.         {      ブザー音      },
  1057.         {SOUND:={};SOUND2:={};VBELL:={No};BELL:=@xc({07});BELFIL:={}},
  1058.         {   画面フラッシュ   },
  1059.         {SOUND:={};SOUND2:={};VBELL:={Yes};BELL:=@xc({07});BELFIL:={}},
  1060.         {指定のｓｎｄファイル},
  1061.         {VBELL:={No};BELL:=@xc({07});setBELFIL},
  1062.         {   プロンプト無し   },
  1063.         {SOUND:={};SOUND2:={};VBELL:={No};BELL:={};BELFIL:={}});
  1064.     visibell(VBELL);
  1065.     };
  1066. /*    なっとうスクロールの設定    */
  1067. %setNATTOU{%natto    {case    (NATTOU,
  1068.             {Yes},{im({『  使用する  』})},
  1069.             ,     {im({『 使用しない 』})}
  1070.             );
  1071.         };
  1072.      SNDMSG({erande_f.snd});footnote({なっとうスクロールを使用しますか});
  1073.     select    ({なっとうスクロールを使用しますか  現在は}|@natto|{です},
  1074.         Wtime4,,
  1075.         {  使用する  },{NATTOU:={Yes};nattou(NATTOU)},
  1076.         { 使用しない },{NATTOU:={No};nattou(NATTOU)}
  1077.         );
  1078.     };
  1079. /*    クリック音の設定    */
  1080. %setCLICK{%clk    {case    (CLICK,
  1081.             {No},{im({『 クリック音なし 』})},
  1082.             ,    {im({『 クリック音あり 』})}
  1083.             );
  1084.         };
  1085.     SNDMSG({erande_f.snd});    footnote({クリック音を出力しますか});
  1086.     select    ({クリック音を出力しますか  現在は}|@clk|{です},
  1087.         Wtime4,,
  1088.         { クリック音あり },{CLICK:={Yes};click(CLICK)},
  1089.         { クリック音なし },{CLICK:={No};click(CLICK)}
  1090.         );
  1091.     };
  1092. /*    かな漢字変換モードの初期値の設定    */
  1093. %setOAK    {var    oakj    [2];    var    oakr    [2];
  1094.     var    oakk    [2];    var    oakz    [2];
  1095.     loop    ({
  1096.         oakj:=@YesNo(@exist(OAK,{J}),{2});
  1097.         oakr:=@YesNo(@exist(OAK,{R}),{2});
  1098.         %k @exist(OAK,{K});
  1099.         %h @exist(OAK,{H});
  1100.         case(k={No}&&h={No},{Yes},{oakk:={3}});
  1101.         case(k,{Yes},{oakk:={2}});
  1102.         case(h,{Yes},{oakk:={1}});
  1103.         oakz:=@YesNo(@exist(OAK,{Z}),{2});
  1104.         footnote({かな漢字変換モードを設定してください});
  1105.         SNDMSG({erande_f.snd});
  1106.         %a @plane(
  1107.             {cかな漢字変換モードの初期値を設定してください\n}|
  1108.             {r漢字辞書モード   /使用する/使わない\n}|
  1109.             {r日本語入力モード /ローマ字/かな\n}|
  1110.             {rカナモード       /ひらがな/カタカナ/英字\n}|
  1111.             {r全角モード       /全角    /半角\n}|
  1112.             {s                 /  設定  /  取消  },
  1113.             oakj,oakr,oakk,oakz);
  1114.         oakj:=    @head(@getline(a,1,1),{\n});
  1115.         oakr:=    @head(@getline(a,2,1),{\n});
  1116.         oakk:=    @head(@getline(a,3,1),{\n});
  1117.         oakz:=    @head(@getline(a,4,1),{\n});
  1118.         %ok    @head(@getline(a,5,1),{\n});
  1119.         case    (ok,
  1120.             { 1},
  1121.             {
  1122.             OAK:={};
  1123.             case(oakj,{ 1},{OAK:=OAK|{J}});
  1124.             case(oakr,{ 1},{OAK:=OAK|{R}});
  1125.             case(oakk,{ 1},{OAK:=OAK|{H}},{ 2},{OAK:=OAK|{K}});
  1126.             case(oakz,{ 1},{OAK:=OAK|{Z}});
  1127.             case(OAK<>{},{Yes},{setoak(OAK)});
  1128.             im({No});
  1129.             },
  1130.             ,{im({No})});
  1131.         });
  1132.     };
  1133. /*    ログ参照時の設定をする    */
  1134. %setREFR{
  1135.     var     Info    [2];
  1136.     var     Dive    [2];
  1137.     var     Dord    [2];
  1138.     var     Ford    [2];
  1139.  
  1140.     %sitst    {
  1141.         case(STYPE,
  1142.             {x},{im({ 特殊 })},{n},{im({ﾌｧｲﾙ名})},
  1143.             {e},{im({拡張子})},{s},{im({サイズ})},
  1144.             {d},{im({ 日付 })},{u},{im({非ｿｰﾄ })},
  1145.             ,{im({ 特殊 })});
  1146.         };
  1147.     Info:=    @case(INFO,{Yes},{im({ 1})},{Def},{im({ 2})},
  1148.             {No},{im({ 3})},,{im({ 1})});
  1149.     Dive:=    @YesNo(DIVE,{1});
  1150.     Dord:=    @case(DORD,{+},{im({ 1})},{-},{im({ 2})},,{im({ 1})});
  1151.     Ford:=    @case(FORD,{+},{im({ 1})},{-},{im({ 2})},,{im({ 2})});
  1152.     loop    ({
  1153.         footnote({ログ参照時の条件を選択してください});
  1154.         SNDMSG({erande_f.snd});
  1155.         %a @plane(
  1156.             {cログ参照時の条件を選択してください\n}|
  1157.             {r  情報表示            /TXF標準/定義ﾌｧｲﾙ/しない\n}|
  1158.             {r  ﾃﾞｨﾚｸﾄﾘ再帰検索     /する/しない\n}|
  1159.             {c  ソート方法    現在 [}|@sitst|{]\n}|
  1160.             {s               / 特殊 /ﾌｧｲﾙ名/拡張子}|
  1161.                 {/サイズ/ 日付 /非ｿｰﾄ \n}|
  1162.             {r  ソート順序(ﾃﾞｨﾚｸﾄﾘ) /昇順/降順\n}|
  1163.             {r  ソート順序(ﾌｧｲﾙ)    /昇順/降順\n}|
  1164.             {c  ｻｲｽﾞｿｰﾄの際のｿｰﾄ順序(ﾃﾞｨﾚｸﾄﾘ)及び、\n}|
  1165.             {c    非ｿｰﾄに際のｿｰﾄ順序の設定は意味を持ちません\n}|
  1166.             {s                      / 設定 / 取消 },
  1167.             Info,Dive,Dord,Ford);
  1168.         Info:=    @head(@getline(a,1,1),{\n});
  1169.         Dive:=    @head(@getline(a,2,1),{\n});
  1170.         %sel1    @head(@getline(a,3,1),{\n});
  1171.         Dord:=    @head(@getline(a,4,1),{\n});
  1172.         Ford:=    @head(@getline(a,5,1),{\n});
  1173.         %ok    @head(@getline(a,6,1),{\n});
  1174.         case(sel1,{ 1},{STYPE:={x};im({Yes})},
  1175.             { 2},{STYPE:={n};im({Yes})},
  1176.             { 3},{STYPE:={e};im({Yes})},
  1177.             { 4},{STYPE:={s};im({Yes})},
  1178.             { 5},{STYPE:={d};im({Yes})},
  1179.             { 6},{STYPE:={u};im({Yes})});
  1180.         case    (ok,
  1181.             { 1},
  1182.             {
  1183.             INFO:=    @case(Info,{ 1},{im({Yes})},
  1184.                     { 2},
  1185.                     {
  1186.                     %tfl CDIR2|{FAPXTXF.SET};
  1187.                     case(@filechk(tfl),{No},
  1188.                         {
  1189.                         write(tfl,
  1190.                         {&情報表示 定義ﾌｧｲﾙです}|CRLF);
  1191.                         });
  1192.                     im({Def})
  1193.                     },
  1194.                     { 3},{im({No})},,{im({Yes})});
  1195.             DIVE:=    @case    (Dive,
  1196.                     { 1},{im({Yes})},{ 2},{im({No})},
  1197.                     ,{im({Yes})});
  1198.             DORD:=    @case    (Dord,
  1199.                     { 1},{im({+})},{ 2},{im({-})},
  1200.                     ,{im({+})});
  1201.             FORD:=    @case    (Ford,
  1202.                     { 1},{im({+})},{ 2},{im({-})},
  1203.                     ,{im({-})});
  1204.             im({No});
  1205.             },
  1206.             { 2},{im({No})},
  1207.             ,{im(sel1!=0)}
  1208.             );
  1209.         });
  1210.     };
  1211. /*専用のフッタの設定*/
  1212. %setFUTA {
  1213.     %futa FUTA;var ok[2];
  1214.     %ftless    @YesNo(Futless,{1});
  1215.     loop    ({
  1216.         %a @plane(
  1217.             {c貴方専用のフッタ情報登録\n}|
  1218.             {t 専用フッタの内容/xxxxxxxxxxxxxxxxxxxxxxxxx}|
  1219.                         {xxxxxxxxxxxxxxx\n}|
  1220.             {r 一時フッタレス指定　/する/しない\n}|
  1221.             {s              / 登録 / 取消 \n},
  1222.                 futa,ftless,1);
  1223.         %futa    @head(@getline(a,1,1),{\n});
  1224.         %ftless    @head(@getline(a,2,1),{\n});
  1225.         ok:=    @head(@getline(a,3,1),{\n});
  1226.     case    (ok,
  1227.         { 1},{
  1228.         FUTA:=futa;
  1229.         Futless:=@case    (ftless,
  1230.                 { 1},{im({Yes})},{ 2},{im({No})},,{im({No})}
  1231.                 );
  1232.         im({No})},
  1233.         ,{im({No})}
  1234.         )});
  1235.     };
  1236. /*通信後のメモの設定*/
  1237. %setMEMO {%memo afMEMO;var ok[2];
  1238.     loop    ({
  1239.         %a @plane(
  1240.             {c通信後のメモ書き込み情報登録\n}|
  1241.             {t 登録メモ 内容/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n}|
  1242.             {s              / 登録 / 取消 \n},
  1243.                 memo,1);
  1244.         %memo    @head(@getline(a,1,1),{\n});
  1245.         ok:=    @head(@getline(a,2,1),{\n});
  1246.         case    (ok,
  1247.             { 1},{afMEMO:=memo;im({No})},
  1248.             ,{im({No})})
  1249.         });
  1250.     };
  1251. /*    その他の設定    */
  1252. %setETC    {
  1253.     var    Nattou    [2];
  1254.     var    Click    [2];
  1255.     var    Tab    [2];
  1256.     var    Lock    [2];
  1257.     var    Open    [2];
  1258.     var    Hosei    [2];
  1259.     var    Flyline    [2];
  1260.     var    Hedfut    [2];
  1261.  
  1262.     Nattou:=@YesNo(NATTOU,{1});Click:=@YesNo(CLICK,{2});
  1263.     Tab:=    @case    (TAB,{1},{im({1})},{2},{im({2})},{4},{im({3})},
  1264.             {8},{im({4})},,{im({4})});
  1265.     Lock:=    @YesNo(LOCK,{2});
  1266.     Open:=    @YesNo(OPENING,{1});
  1267.     Hosei:=    @YesNo(HOSEI,{1});
  1268.     Flyline:=@case    (FlyLine,{1},{im({1})},{2},{im({2})},{3},{im({3})},
  1269.             {4},{im({4})},,{im({4})});
  1270.     Hedfut:=@case    (HedFut,{Std},{im({1})},{Als},{im({2})},
  1271.             {art},{im({3})},{Jap},{im({4})},,{im({5})});
  1272.     loop    ({
  1273.         footnote({その他の条件を設定してください});
  1274.         SNDMSG({erande_f.snd});
  1275.         %a @plane(
  1276.             {s              /       背景色の設定       \n}|
  1277.             {s              /   プロンプト方法の設定   \n}|
  1278.             {s              / かな漢字変換初期値の設定 \n}|
  1279.             {s              /     ログ参照時の設定     \n}|
  1280.             {r納豆スクロール         /する/しない\n}|
  1281.             {rクリック音出力         /する/しない\n}|
  1282.             {rタブ数                 /１/２/４/８\n}|
  1283.             {rシフトロック           /する/しない\n}|
  1284.             {rオープニング画面表示   /する/しない\n}|
  1285.             {r複数ネットﾒﾆｭｰ表示 　  /する/しない\n}|
  1286.             {rｴｺｰﾊﾞｯｸ前に送信する行数/１/２/３/４\n}|
  1287.             {rヘッダ･フッタ/STD/ALIS/arti/日本語/しない\n}|
  1288.             {s専用フッタorフッタレス / 登録する   \n}|
  1289.             {s通信後のメモ  　       / 登録する   \n}|
  1290.             {s                      / 設定 / 取消 },
  1291.         Nattou,Click,Tab,Lock,Open,Hosei,Flyline,Hedfut);
  1292. %sel1    @head(@getline(a,1,1),{\n});%sel2    @head(@getline(a,2,1),{\n});
  1293. %sel3    @head(@getline(a,3,1),{\n});%sel4    @head(@getline(a,4,1),{\n});
  1294. Nattou:=@head(@getline(a,5,1),{\n});Click:=    @head(@getline(a,6,1),{\n});
  1295. Tab:=    @head(@getline(a,7,1),{\n});Lock:=    @head(@getline(a,8,1),{\n});
  1296. Open:=    @head(@getline(a,9,1),{\n});Hosei:=    @head(@getline(a,10,1),{\n});
  1297. Flyline:=@head(@getline(a,11,1),{\n});Hedfut:=    @head(@getline(a,12,1),{\n});
  1298. %sel5    @head(@getline(a,13,1),{\n});%sel6    @head(@getline(a,14,1),{\n});
  1299. %ok    @head(@getline(a,15,1),{\n});
  1300.     case    (sel1,{ 1},{setCOLOR;im({Yes})});
  1301.     case    (sel2,{ 1},{setPRMPT;im({Yes})});
  1302.     case    (sel3,{ 1},{setOAK;im({Yes})});
  1303.     case    (sel4,{ 1},{setREFR;im({Yes})});
  1304.     case    (sel5,{ 1},{setFUTA;im({Yes})});
  1305.     case    (sel6,{ 1},{setMEMO;im({Yes})});
  1306.     case    (ok,
  1307.         { 1},{
  1308.         NATTOU:=@case    (Nattou,
  1309.                     { 1},{nattou({Yes});im({Yes})},
  1310.                     { 2},{nattou({No});im({No})},
  1311.                             ,{im({})}
  1312.                 );
  1313.         CLICK:=@case    (Click,
  1314.                     { 1},{click({Yes});im({Yes})},
  1315.                     { 2},{click({No});im({No})},
  1316.                             ,{im({})}
  1317.                 );
  1318.         TAB:=@case    (Tab,
  1319.                     { 1},{tab({1});im({1})},
  1320.                     { 2},{tab({2});im({2})},
  1321.                     { 3},{tab({4});im({4})},
  1322.                     { 4},{tab({8});im({8})},
  1323.                         ,{im({})}
  1324.                 );
  1325.         LOCK:=@case    (Lock,
  1326.                     { 1},{shiftl({Yes});im({Yes})},
  1327.                     { 2},{shiftl({No});im({No})},
  1328.                         ,{im({})}
  1329.                 );
  1330.         OPENING:=@case    (Open,
  1331.                     { 1},{im({Yes})},
  1332.                     { 2},{im({No})},
  1333.                         ,{im({Yes})}
  1334.                 );
  1335.         HOSEI:=@case    (Hosei,
  1336.                     { 1},{im({Yes})},
  1337.                     { 2},{im({No})},
  1338.                         ,{im({Yes})}
  1339.                 );
  1340.         FlyLine:=@case    (Flyline,
  1341.                     { 1},{im({1})},{ 2},{im({2})},
  1342.                     { 3},{im({3})},{ 4},{im({4})},
  1343.                     ,{im({})}
  1344.                 );
  1345.         HedFut:=@case    (Hedfut,
  1346.                     { 1},{im({Std})},{ 2},{im({Als})},
  1347.                     { 3},{im({art})},{ 4},{im({Jap})},
  1348.                     { 5},{im({})},,{im({})}
  1349.                 );
  1350.             im({No});
  1351.             },{ 2},{im({No})},
  1352.             ,{im(sel1==1||sel2==1||sel3==1||sel4==1
  1353.             ||sel5==1||sel6==1)}
  1354.             )})};
  1355. /*    ﾌｧｲﾙﾏﾈｰｼﾞｬの選択    */
  1356. %setFMGR{
  1357.     %mgr    @case(FMGR,{},{im({標準ﾌｧｲﾙﾏﾈｰｼﾞｬ})},,{im(FMGR)});
  1358.     SNDMSG({erande_f.snd});
  1359.     footnote({ﾌｧｲﾙﾏﾈｰｼﾞｬを選択して下さい  現在は }|mgr|{ です});
  1360.     FMGR:=
  1361.     @loop    ({select({ファイルマネージャを選択してください},
  1362.             Wtime4,{im(FMGR)},
  1363.             {  標準ファイルマネージャ  },{im({})},
  1364.             { 任意のファイルマネージャ },
  1365.             {
  1366.             footnote({ファイルマネージャ用のオート}|
  1367.                 {パイロットを指定して下さい});
  1368.             %fmgr    @filesel();
  1369.             case(fmgr,{},{im({})},
  1370.                 ,{case(@nochar(@getcdir),
  1371.                     {3},{im(@getcdir|fmgr)},
  1372.                     ,{im(@getcdir|{\}|fmgr)})});
  1373.             });
  1374.         });
  1375.     };
  1376.  
  1377. /*    設定情報をファイルに保存する    */
  1378. %writeSET{
  1379.     [file]
  1380.     setcdir(CDIR);
  1381.     dispoff(!DEBUG);
  1382.     command({copy }|file|{ }|@body(file,,{.})|{.BAK});
  1383.     delfile(file);
  1384.     dispoff({No});
  1385.     write(file,
  1386.         {ID      :=}|@xc({7b})|ID|@xc({7d})|{;\n}|
  1387.         {PassWord:=}|@xc({7b})|PassWord|@xc({7d})|{;\n}|
  1388.         {HanDLe  :=}|@xc({7b})|HanDLe|@xc({7d})|{;\n}|
  1389.         {AcP     :=}|@xc({7b})|AcP|@xc({7d})|{;\n}|
  1390.         {AcPNo   :=}|@xc({7b})|AcPNo|@xc({7d})|{;\n}|
  1391.         {ROAD    :=}|@xc({7b})|ROAD|@xc({7d})|{;\n}|
  1392.         {ROAD2   :=}|@xc({7b})|ROAD2|@xc({7d})|{;\n}|
  1393.         {ROAD3   :=}|@xc({7b})|ROAD3|@xc({7d})|{;\n}|
  1394.         {ROAD4   :=}|@xc({7b})|ROAD4|@xc({7d})|{;\n}|
  1395.         {sROAD   :=}|@xc({7b})|sROAD|@xc({7d})|{;\n}|
  1396.         {GEN     :=}|@xc({7b})|GEN|@xc({7d})|{;\n}|
  1397.         {GEN2    :=}|@xc({7b})|GEN2|@xc({7d})|{;\n}|
  1398.         {GEN3    :=}|@xc({7b})|GEN3|@xc({7d})|{;\n}|
  1399.         {GEN4    :=}|@xc({7b})|GEN4|@xc({7d})|{;\n}|
  1400.         {genteiT :=}|@xc({7b})|genteiT|@xc({7d})|{;\n}|
  1401.         {openT   :=}|@xc({7b})|openT|@xc({7d})|{;\n}|
  1402.         {closeT  :=}|@xc({7b})|closeT|@xc({7d})|{;\n});
  1403.     write(file,
  1404.         {NETname :=}|@xc({7b})|NETname|@xc({7d})|{;\n}|
  1405.         {NET     :=}|@xc({7b})|NET|@xc({7d})|{;\n}|
  1406.         {CALL    :=}|@xc({7b})|CALL|@xc({7d})|{;\n}|
  1407.         {TBINty  :=}|@xc({7b})|TBINty|@xc({7d})|{;\n}|
  1408.         {BINty 　:=}|@xc({7b})|BINty|@xc({7d})|{;\n}|
  1409.         {REDIAL  :=}|@xc({7b})|REDIAL|@xc({7d})|{;\n}|
  1410.         {REDIALt :=}|@xc({7b})|REDIALt|@xc({7d})|{;\n}|
  1411.         {MODEM   :=}|@xc({7b})|MODEM|@xc({7d})|{;\n}|
  1412.         {DIAL    :=}|@xc({7b})|DIAL|@xc({7d})|{;\n}|
  1413.         {TEMP    :=}|@xc({7b})|TEMP|@xc({7d})|{;\n}|
  1414.         {LOG     :=}|@xc({7b})|LOG|@xc({7d})|{;\n}|
  1415.         {aftLOG  :=}|@xc({7b})|aftLOG|@xc({7d})|{;\n}|
  1416.         {freLOG  :=}|@xc({7b})|freLOG|@xc({7d})|{;\n}|
  1417.         {UP      :=}|@xc({7b})|UP|@xc({7d})|{;\n}|
  1418.         {FSW     :=}|@xc({7b})|FSW|@xc({7d})|{;\n}|
  1419.         {RTTLdir :=}|@xc({7b})|RTTLdir|@xc({7d})|{;\n}|
  1420.         {RTop 　 :=}|@xc({7b})|RTop|@xc({7d})|{;\n}|
  1421.         {VIEWLOG :=}|@xc({7b})|VIEWLOG|@xc({7d})|{;\n}|
  1422.         {MEMBER  :=}|@xc({7b})|MEMBER|@xc({7d})|{;\n});
  1423.     write(file,
  1424.         {UPDOWN  :=}|@xc({7b})|UPDOWN|@xc({7d})|{;\n}|
  1425.         {MAILDEL :=}|@xc({7b})|MAILDEL|@xc({7d})|{;\n}|
  1426.         {MAILRED :=}|@xc({7b})|MAILRED|@xc({7d})|{;\n}|
  1427.         {DelML　 :=}|@xc({7b})|DelML|@xc({7d})|{;\n}|
  1428.         {BmalON  :=}|@xc({7b})|BmalON|@xc({7d})|{;\n}|
  1429.         {BMALDEL :=}|@xc({7b})|BMALDEL|@xc({7d})|{;\n}|
  1430.         {BMALRED :=}|@xc({7b})|BMALRED|@xc({7d})|{;\n}|
  1431.         {DelBML  :=}|@xc({7b})|DelBML|@xc({7d})|{;\n}|
  1432.         {JISAR   :=}|@xc({7b})|JISAR|@xc({7d})|{;\n}|
  1433.         {ESCon   :=}|@xc({7b})|ESCon|@xc({7d})|{;\n}|
  1434.         {PLTmemo :=}|@xc({7b})|PLTmemo|@xc({7d})|{;\n}|
  1435.         {FlyLine :=}|@xc({7b})|FlyLine|@xc({7d})|{;\n}|
  1436.         {AP3     :=}|@xc({7b})|AP3|@xc({7d})|{;\n}|
  1437.         {ACCESS  :=}|@xc({7b})|ACCESS|@xc({7d})|{;\n}|
  1438.         {MACTIV  :=}|@xc({7b})|MACTIV|@xc({7d})|{;\n}|
  1439.         {HedFut  :=}|@xc({7b})|HedFut|@xc({7d})|{;\n}|
  1440.         {FUTA    :=}|@xc({7b})|FUTA|@xc({7d})|{;\n}|
  1441.         {Futless :=}|@xc({7b})|Futless|@xc({7d})|{;\n}|
  1442.         {afMEMO  :=}|@xc({7b})|afMEMO|@xc({7d})|{;\n}|
  1443.         {BINop   :=}|@xc({7b})|BINop|@xc({7d})|{;\n}|
  1444.         {WHO     :=}|@xc({7b})|WHO|@xc({7d})|{;\n});
  1445.     write(file,
  1446.         {TalkID1 :=}|@xc({7b})|TalkID1|@xc({7d})|{;\n}|
  1447.         {TalkID2 :=}|@xc({7b})|TalkID2|@xc({7d})|{;\n}|
  1448.         {TalkID3 :=}|@xc({7b})|TalkID3|@xc({7d})|{;\n}|
  1449.         {TalkID4 :=}|@xc({7b})|TalkID4|@xc({7d})|{;\n}|
  1450.         {TalkID5 :=}|@xc({7b})|TalkID5|@xc({7d})|{;\n}|
  1451.         {TalkID6 :=}|@xc({7b})|TalkID6|@xc({7d})|{;\n}|
  1452.         {TalkID7 :=}|@xc({7b})|TalkID7|@xc({7d})|{;\n}|
  1453.         {TalkID8 :=}|@xc({7b})|TalkID8|@xc({7d})|{;\n}|
  1454.         {TalkID9 :=}|@xc({7b})|TalkID9|@xc({7d})|{;\n}|
  1455.         {TalkID10:=}|@xc({7b})|TalkID10|@xc({7d})|{;\n}|
  1456.         {TalkID11:=}|@xc({7b})|TalkID11|@xc({7d})|{;\n}|
  1457.         {TalkID12:=}|@xc({7b})|TalkID12|@xc({7d})|{;\n}|
  1458.         {TalkID13:=}|@xc({7b})|TalkID13|@xc({7d})|{;\n}|
  1459.         {TalkID14:=}|@xc({7b})|TalkID14|@xc({7d})|{;\n}|
  1460.         {TalkID15:=}|@xc({7b})|TalkID15|@xc({7d})|{;\n}|
  1461.         {TalkID16:=}|@xc({7b})|TalkID16|@xc({7d})|{;\n}|
  1462.         {TalkID17:=}|@xc({7b})|TalkID17|@xc({7d})|{;\n}|
  1463.         {TalkID18:=}|@xc({7b})|TalkID18|@xc({7d})|{;\n}|
  1464.         {TalkID19:=}|@xc({7b})|TalkID19|@xc({7d})|{;\n}|
  1465.         {TalkID20:=}|@xc({7b})|TalkID20|@xc({7d})|{;\n});
  1466.     write(file,
  1467.         {CMt1    :=}|@xc({7b})|CMt1|@xc({7d})|{;\n}|
  1468.         {CMt2    :=}|@xc({7b})|CMt2|@xc({7d})|{;\n}|
  1469.         {CMt3    :=}|@xc({7b})|CMt3|@xc({7d})|{;\n}|
  1470.         {CMt4    :=}|@xc({7b})|CMt4|@xc({7d})|{;\n}|
  1471.         {CMt5    :=}|@xc({7b})|CMt5|@xc({7d})|{;\n}|
  1472.         {CMt6    :=}|@xc({7b})|CMt6|@xc({7d})|{;\n}|
  1473.         {CMt7    :=}|@xc({7b})|CMt7|@xc({7d})|{;\n}|
  1474.         {CMt8    :=}|@xc({7b})|CMt8|@xc({7d})|{;\n}|
  1475.         {CMt9    :=}|@xc({7b})|CMt9|@xc({7d})|{;\n}|
  1476.         {CMt10   :=}|@xc({7b})|CMt10|@xc({7d})|{;\n}|
  1477.         {CMt11   :=}|@xc({7b})|CMt11|@xc({7d})|{;\n}|
  1478.         {CMt12   :=}|@xc({7b})|CMt12|@xc({7d})|{;\n}|
  1479.         {CMt13   :=}|@xc({7b})|CMt13|@xc({7d})|{;\n}|
  1480.         {CMt14   :=}|@xc({7b})|CMt14|@xc({7d})|{;\n}|
  1481.         {CMt15   :=}|@xc({7b})|CMt15|@xc({7d})|{;\n}|
  1482.         {CMt16   :=}|@xc({7b})|CMt16|@xc({7d})|{;\n}|
  1483.         {CMt17   :=}|@xc({7b})|CMt17|@xc({7d})|{;\n}|
  1484.         {CMt18   :=}|@xc({7b})|CMt18|@xc({7d})|{;\n}|
  1485.         {CMt19   :=}|@xc({7b})|CMt19|@xc({7d})|{;\n}|
  1486.         {CMt20   :=}|@xc({7b})|CMt20|@xc({7d})|{;\n});
  1487.     write(file,
  1488.         {OPENING :=}|@xc({7b})|OPENING|@xc({7d})|{;\n}|
  1489.         {HOSEI   :=}|@xc({7b})|HOSEI|@xc({7d})|{;\n}|
  1490.         {SOUND   :=}|@xc({7b})|SOUND|@xc({7d})|{;\n}|
  1491.         {FMGR    :=}|@xc({7b})|FMGR|@xc({7d})|{;\n}|
  1492.         {RTTLC   :=}|@xc({7b})|RTTLC|@xc({7d})|{;\n}|
  1493.         {INFO    :=}|@xc({7b})|INFO|@xc({7d})|{;\n}|
  1494.         {DIVE    :=}|@xc({7b})|DIVE|@xc({7d})|{;\n}|
  1495.         {STYPE   :=}|@xc({7b})|STYPE|@xc({7d})|{;\n}|
  1496.         {DORD    :=}|@xc({7b})|DORD|@xc({7d})|{;\n}|
  1497.         {FORD    :=}|@xc({7b})|FORD|@xc({7d})|{;\n}|
  1498.         {R       :=}|@xc({7b})|R|@xc({7d})|{;\n}|
  1499.         {G       :=}|@xc({7b})|G|@xc({7d})|{;\n}|
  1500.         {B       :=}|@xc({7b})|B|@xc({7d})|{;\n}|
  1501.         {BELFIL  :=}|@xc({7b})|BELFIL|@xc({7d})|{;\n}|
  1502.         {VBELL   :=}|@xc({7b})|VBELL|@xc({7d})|{;\n}|
  1503.         {NATTOU  :=}|@xc({7b})|NATTOU|@xc({7d})|{;\n}|
  1504.         {CLICK   :=}|@xc({7b})|CLICK|@xc({7d})|{;\n}|
  1505.         {LOCK    :=}|@xc({7b})|LOCK|@xc({7d})|{;\n}|
  1506.         {TAB     :=}|@xc({7b})|TAB|@xc({7d})|{;\n}|
  1507.         {OAK     :=}|@xc({7b})|OAK|@xc({7d})|{;\n}|
  1508.         {DORAEND :=}|@xc({7b})|DORAEND|@xc({7d})|{;\n});
  1509.     SETFILE1:={標準設定};
  1510.     };
  1511. /*    設定情報をもとに戻す    */
  1512. %CANCEL    {footnote({本当にもとに戻してもいいですか？});
  1513.     select    ({本当にもとに戻してもいいですか？},
  1514.         Wtime4,,
  1515.         { Ｏ Ｋ },
  1516.         {case(@filechk(SETFILE),{Yes},
  1517.         {setcdir(CDIR);#DORASET.SET;init;SETFILE1:={標準設定}})
  1518.         },{ Ｎ Ｇ });
  1519.     };
  1520. /*    設定情報をファイルに保存する    */
  1521. %SAVE    {[Befname]
  1522.     var    newfile    [64];
  1523.     case    (Befname,
  1524.         {net},{newfile:=NET|{.USR}},
  1525.         {net2},{
  1526.         footnote({設定情報を保存するファイルを指定して下さい});
  1527.         newfile:=@filesel({USR})}
  1528.         );
  1529.     case    (newfile<>{},
  1530.         {Yes},{
  1531.         newfile:=@dir2(@getcdir)|newfile;
  1532.         writeSET(newfile)
  1533.         });
  1534.     footnote(NET|{.USRファイルに設定を保存しました});wait(2)
  1535.     };
  1536. /*    ファイルから設定情報を読み込む    */
  1537. %LOAD    {var    newfile    [64];SNDMSG({erande_f.snd});
  1538.     footnote({設定情報を読み込むファイルを指定して下さい});
  1539.     newfile:=@filesel({USR});
  1540.     case(newfile<>{},{Yes},{
  1541.         %newdir    @getcdir;
  1542.         case(@nochar(newdir)==3,
  1543.             {Yes},{newfile:=newdir|newfile},
  1544.             {No},{newfile:=newdir|{\}|newfile});
  1545.         case(@filechk(newfile),{Yes},
  1546.             {%ExcPilot {#}|newfile;ExcPilot;init;
  1547.                 SETFILE1:=@tail(newfile,{\})})});
  1548.     setcdir(CDIR)};
  1549. /*    通信ﾌﾟﾛﾄｺﾙ選定 T-OS    */
  1550. %setNETxybin{SNDMSG({erande_f.snd});
  1551.     select    ({バイナリープロトコルを設定して下さい[現在=}|TBINty|{]},
  1552.     Wtime4,{},
  1553.     {X-modem},{TBINty:={X-modem};binop:={S}},/*XMODEM SUM(128)*/
  1554.     {Y-modem},{TBINty:={Y-modem};binop:={Y}}/*YMODEM*/
  1555.     )};
  1556. /*    通信ﾌﾟﾛﾄｺﾙ選定 WIN    */
  1557. %setNETbin{SNDMSG({erande_f.snd});
  1558.     select    ({バイナリープロトコルを設定して下さい[現在=}|BINty|{]},
  1559.     Wtime4,{},
  1560.     {X-modem},{BINty:={X-modem}},/*XMODEM SUM(128)*/
  1561.     {X-modem-CRC},{BINty:={X-modem-CRC}},/*XMDM CRC(128)*/
  1562.     {X-modem-1K-CRC},{BINty:={X-modem-1K-CRC}},/*XMDM CRC(1024)*/
  1563.     {Y-modem},{BINty:={Y-modem}},/*YMODEM*/
  1564.     {Y-modem-G},{BINty:={Y-modem-G}},/*YMODEM-g*/
  1565.     {MLINK},{BINty:={MLINK}},/*M-LINK*/
  1566.     {Z-modem},{BINty:={Z-modem}}/*ZMODEM*/
  1567.     );
  1568.     case    (BINty,
  1569.         {X-modem},{setbin({X-modem});binop:={S}},
  1570.         {X-modem-CRC},{setbin({X-modem-CRC});binop:={C}},
  1571.         {X-modem-1K-CRC},{setbin({X-modem-1K-CRC});binop:={X}},
  1572.         {Y-modem},{setbin({Y-modem});binop:={Y}},
  1573.         {Y-modem-G},{setbin({Y-modem-G});binop:={G}},
  1574.         {MLINK},{setbin({MLINK});binop:={M}},
  1575.         {Z-modem},{RecDir(FSW);/*受信ディレクトリーの指定*/
  1576.         /*SetZAuto({No});   Z-modem受信の自動起動無の指定*/
  1577.         setbin({Z-modem});binop:={Z}},
  1578.         ,{setbin({Y-modem});BINty:={Y-modem};binop:={Y}}
  1579.         );binop:=binop
  1580.     };
  1581. /*COMMAND.COMﾄﾞﾗｲﾌﾞの指定*/
  1582. %setCOMDRV{SNDMSG({erande_f.snd});
  1583.     select    ({COMMAND.COMが存在するﾄﾞﾗｲﾌﾞを指定して下さい[現在=}|COMDRV|{]},
  1584.     Wtime4,{},
  1585.     {A},{COMDRV:={A}},{B},{COMDRV:={B}},{C},{COMDRV:={C}},{D},{COMDRV:={D}},
  1586.         {E},{COMDRV:={E}},{F},{COMDRV:={F}},{G},{COMDRV:={G}},{H},{COMDRV:={H}},
  1587.     {I},{COMDRV:={I}},{J},{COMDRV:={J}},{K},{COMDRV:={K}},{L},{COMDRV:={L}},
  1588.     {M},{COMDRV:={M}},{N},{COMDRV:={N}},{O},{COMDRV:={O}},{P},{COMDRV:={P}})    };
  1589. /*    設定する情報の選択    */
  1590. %DORASET{
  1591.     loop    ({SNDMSG({erande_f.snd});
  1592.         footnote({設定する情報を選択して下さい});
  1593.     select    ({設定する情報を選択して下さい  << 各種の設定 >>},
  1594.         60,{im({No})},
  1595.         {ＩＤ & ﾊﾟｽﾜｰﾄﾞ & ﾊﾝﾄﾞﾙ名の設定},{setID;im({Yes})},
  1596.         { モデム・電話機ﾀｲﾌﾟの設定 　　},{setMDM;im({Yes})},
  1597.         { ＮＥＴ名称と電話番号｢電話帳｣ },
  1598.             {setBBSname;setBBSTEL;setACP;setLOGF;im({Yes})},
  1599.         { プロトコルの設定        },{setNETxybin;im({Yes})},
  1600.         { ログファイルの設定      },{setLOGF;im({Yes})},
  1601.         { 通信､RTTLC,微調整の設定 },
  1602.             {setcdir(CDIR);#DORASETC.PLP;im({Yes})},
  1603.         { その他の設定         },{setETC;im({Yes})},
  1604.         { サブメニューに戻る  },{im({No})}
  1605.         )})
  1606.     };
  1607. %DORASETwin{
  1608.     loop    ({SNDMSG({erande_f.snd});
  1609.         footnote({設定する情報を選択して下さい});
  1610.     select    ({設定する情報を選択して下さい  << 各種の設定 >>},
  1611.         60,{im({No})},
  1612.         { ＩＤ & ﾊﾟｽﾜｰﾄﾞ & ﾊﾝﾄﾞﾙ名の設定},{setID;im({Yes})},
  1613.         { モデム・電話機ﾀｲﾌﾟの設定 　　},{setMDM;im({Yes})},
  1614.         { ＮＥＴ名称と電話番号｢電話帳｣ },
  1615.             {setBBSname;setBBSTEL;setACP;setLOGF;im({Yes})},
  1616.         { プロトコルの設定        },{setNETbin;im({Yes})},
  1617.         { ログファイルの設定      },{setLOGF;im({Yes})},
  1618.         { 通信,RTTLC,微調整の設定},
  1619.             {setcdir(CDIR);#DORASETC.PLP;im({Yes})},
  1620.         { その他の設定         },{setETC;im({Yes})},
  1621.         { サブメニューに戻る},{im({No})}
  1622.         )})
  1623.     };
  1624. %setBUPcom{SNDMSG({erande_f.snd});
  1625.     %bmailHLP{
  1626.     バイナリメールシステムは、ホストプログラムのバージョンにより
  1627.     異なりますので　選択の際は御注意ください。
  1628.  
  1629.     BMAILコマンド        説    明
  1630.     　　　Ｍ    「MB」で「バイナリメール送信モード」に成るホスト。
  1631.             （システム：ＭＩＮＡ－ＮＥＴ汎用版:
  1632.                 ＡＯＩ－ＮＥＴ用バージョン）
  1633.             AOI-NET,MINA-NET,JC-NET,POA-NET
  1634.  
  1635.     　　　ＭＢ    通常のメールモードに入り、「B」を指定すると
  1636.             「バイナリメールモード」に成るホスト。
  1637.             （システム：kifs版：ﾐﾝｷｰﾑｰﾝ版：DIGITAL-BBS版 :
  1638.                 resouse で配布のＢメールきっと版）
  1639.             TGK-NET,KMF-NET,ﾐﾝｷｰﾑｰﾝ-NET,DIGITAL-NET,
  1640.             SSS-NET,SLOW's-NET
  1641.  
  1642.     　　　Ｚ    メインメニューから「Z」を指定すると
  1643.             「バイナリメールモード」に成るホスト。
  1644.             （システム：The_BEAT-NET版）
  1645.             KT-NET,BEAT-NET
  1646.  
  1647.     ※バイナリメールシステムの無いホストでは、BMAILコマンドを設定しないで
  1648.     　下さい。ＤＯＲＡにて対応していないBMAILコマンドが有る場合は、お知らせ
  1649.     　下さい。m(_ _)mﾍﾟｺﾍﾟｺ};
  1650.     select    (NET|{ネットのB-MAILアップｺﾏﾝﾄﾞを指定して下さい[現在=}
  1651.         |BINop|{]},
  1652.     Wtime4,{},
  1653.     {M},{BINop:={M}},{MB},{BINop:={MB}},{Z},{BINop:={Z}},
  1654.     {HELP},{HLPview(bmailHLP);im({Yes})});
  1655.     };
  1656. %setBMAIL{
  1657.     %doBmail BINop;
  1658.     %bmaldel@case    (BMALDEL|BMALRED,
  1659.         {YesYes},{case(DelBML,{other},{im({2})},,{im({1})})},
  1660.         {YesNo},{case(DelBML,{other},{im({2})},,{im({1})})},
  1661.         {NoYes},{im({3})},{NoNo},{im({4})},,{im({4})});
  1662.     loop    ({
  1663.         footnote({B-MAIL 情報を設定してください});
  1664.         SNDMSG({nyuryo_f.snd});
  1665.         %a @plane(
  1666.             {cバイナリメールの　コマンドを入力して下さい\n}|
  1667.             {cネットによって異なる事が有りますので\n}|
  1668.             {c注意して下さい\n}|
  1669.             {t ネットのコマンド   / xx\n}|
  1670.             {s コマンド選択          / 検索 /削除\n}|
  1671.             {r Bメール処理  /既読DEL/既読DEL他/確認/しない\n}|
  1672.             {s                    / 設定 / 取消 },
  1673.             doBmail,bmaldel);
  1674.         %doBmail@head(@getline(a,1,1),{\n});
  1675.         %sel1    @head(@getline(a,2,1),{\n});
  1676.         %bmaldel@head(@getline(a,3,1),{\n});
  1677.         %ok    @head(@getline(a,4,1),{\n});
  1678.         case    (sel1,
  1679.             { 1},
  1680.             {setBUPcom;%doBmail BINop},
  1681.             { 2},
  1682.             {BINop:={};%doBmail BINop},
  1683.             );
  1684.         case(bmaldel,
  1685.             { 1},{BMALDEL:={Yes};BMALRED:={No};
  1686.                 DelBML:={all};BmalON:={Yes}},
  1687.             { 2},{BMALDEL:={Yes};BMALRED:={No};
  1688.                 DelBML:={other};BmalON:={Yes}},
  1689.             { 3},{BMALDEL:={No};BMALRED:={Yes};
  1690.                 DelBML:={};BmalON:={Yes}},
  1691.             ,{BMALDEL:={No};BMALRED:={No};
  1692.                 DelBML:={};BmalON:={No}});
  1693.         case    (ok,
  1694.             { 1},
  1695.             {DOBMAIL:=doBmail},
  1696.             { 2},{im({No})},
  1697.             ,{im({Yes})}
  1698.             );
  1699.         });
  1700.     };
  1701. %slctNEMU{
  1702.     loop    ({SNDMSG({erande_f.snd});
  1703.         footnote({設定する情報を選択して下さい});
  1704.     select    ({<サブメニュー>設定メニューを選択して下さい},
  1705.         60,{im({No})},
  1706.         {<< 各種の設定 >>ＤＯＲＡ電話帳もあるよ},
  1707.         {case    (mopver={Win31},
  1708.             {Yes},{DORASETwin},
  1709.             {No},{DORASET});im({Yes})},
  1710.         {<< バイナリﾒｰﾙ関連の設定 >>},{setBMAIL;im({Yes})},
  1711.         { もとの設定にもどす      },{CANCEL;im({Yes})},
  1712.         { ファイルマネージャの選択   },{setFMGR;im({Yes})},
  1713.         { 設定をﾌｧｲﾙに保存する>}|NET|{.USR}
  1714.             ,{setcdir(CDIR);SAVE({net});im({Yes})},
  1715.         { 設定をﾌｧｲﾙに保存する>*.USR}
  1716.             ,{setcdir(CDIR);SAVE({net2});im({Yes})},
  1717.         { ﾌｧｲﾙから設定を読み込む<*.USR},{setcdir(CDIR);LOAD;im({Yes})},
  1718.         { 設定を保存して終了>DORASET.SET},{writeSET(SETFILE);im({No})},
  1719.         { 保存しない(一時的な変更)   }
  1720.             ,{SETFILE1:={一時設定};im({No})}
  1721.         )});
  1722.     };
  1723. slctNEMU;